home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / game / misc / ShuffleRun.lzh / ShuffleRun / UnPackDisk < prev   
Encoding:
Text File  |  1993-02-15  |  1.9 KB  |  91 lines
  1. .Key  ""
  2. set src1  "ShuffleRun.lha"
  3. set dst  "ShuffleRun"
  4.  
  5. echo ""
  6. echo "This script will unpack the following lha archives to create a game disk:"
  7. echo ""
  8. echo "  $src1 => $dst"
  9. echo ""
  10.  
  11. lab GETDRIVE
  12. echo "Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  13. failat 20
  14. skip >NIL: ? 
  15.  
  16. lab 0
  17.   set drive "DF0:"
  18.   skip HAVEDRIVE
  19. ;
  20. lab 1
  21.   set drive "DF1:"
  22.   skip HAVEDRIVE
  23. ;
  24. lab 2
  25.   set drive "DF2:"
  26.   skip HAVEDRIVE
  27. ;
  28. lab 3
  29.   set drive "DF3:"
  30.   skip HAVEDRIVE
  31. ;
  32.  
  33. lab HAVEDRIVE
  34. ask "Do you have a blank unformatted disk in drive $drive?"
  35. if not WARN
  36.     echo ""
  37.     echo "Try again when you do ..."
  38.     echo "All Done.  Click close gadget to get rid of window."
  39.     endcli
  40. endif
  41.  
  42. echo ""
  43. echo "==> sys:system/format drive $drive name $dst NOICONS"
  44. sys:system/format drive $drive name $dst NOICONS
  45. echo "==> :c/lha -axm x $src1 $dst:"
  46. :c/lha -axm x $src1 $dst:
  47.  
  48. echo ""
  49. echo "If you like, you can try to make the game disk bootable.  This requires"
  50. echo "copying various files from your currently running system onto the game"
  51. echo "disk.  This may fail if there is insufficient room on the game disk,"
  52. echo "however even if it does, you should still be able to run the game"
  53. echo "directly from the disk without rebooting."
  54. echo ""
  55. ask "Try to make the game disk bootable?"
  56.  
  57. if WARN
  58.     echo ""
  59.     echo "Installing $drive"
  60.     sys:c/install $drive
  61.  
  62.     echo "Copying selected proprietary files from your system ..."
  63.  
  64.     makedir $dst:c
  65.     if exists c:Type
  66.         copy c:Type $dst:c/Type
  67.     endif
  68.  
  69.     makedir $dst:devs
  70.     if exists devs:system-configuration
  71.         copy devs:system-configuration $dst:devs/system-configuration
  72.     endif
  73.  
  74.     makedir $dst:libs
  75.     if exists libs:diskfont.library
  76.         copy libs:diskfont.library $dst:libs/diskfont.library
  77.     endif
  78.  
  79.     makedir $dst:l
  80.     if exists l:disk-validator
  81.         copy l:disk-validator $dst:l/disk-validator
  82.     endif
  83. endif
  84.  
  85. echo "All Done.  Click close gadget to get rid of window."
  86. endcli
  87.  
  88. endskip
  89. echo "Invalid Drive Selection, Please try again!"
  90. skip back GETDRIVE
  91.